/* No sign should be out if not one of the below conditions are fulfilled.
DACT: SETRF 3,7=0
/* If shop has been visited once, put out sign 1 in harbour
DACT: IFRF 4,1=1;SETRF 3,7=1
/* If shop has been visited twice, put out sign 2 in harbour
DACT: IFRF 4,1=2;SETRF 3,7=2
/* Check the weather, alter the sky and take in the notice.
DACT: IFRF 6=1;COLOUR DLY,23,$678;HIDE ROBJ2
/* Check if bell has called upon shopkeeper yet
DACT: IFRF 5=1;HIDE ROBJ9;SHOW 2,394,86,RBOB30
/* Check if the "alley comment exit" should be in place or not
DACT: IFRF 7=1;HIDEEXIT 3
/* Lights! Camera! Action!
DACT: TRACK NO;LIGHTS ON
/* dialogue du Nomade
LINE: 2;1;Bien, au revoir.; ;
LACT: 2;1;RESP R,2,Puisse Allah guider votre journée, effendi.;EDLG;EXIT
/*
LINE: 2;2;Avez vous un marchand de sel de Medina dans les parages?; ;IFOF 2=1
LACT: 2;2;RESP R,2,Je suis desolé, non, effendi.;W 25;RESP R,2,Moi et Marlboro revenons juste de l'Est. ;DSET 2,+3,+4,+7,N2,N6
/*
LINE: 2;3;Excusez moi - Qui est Marlboro?; ;
LACT: 2;3;RESP R,2,C'est mon chameau...;DSET 2,N3
/*
LINE: 2;4;Etes vous vraiment SUR de n'avoir pas vu de marchand de sel?; ;
LACT: 2;4;RESP R,2,Hmm...;W 25;RESP R,2,A quoi il ressemble?;DSET 2,S1,+5,+11,+12
/*
LINE: 2;5;Et bien... euh... plutot assoifé?; ;
LACT: 2;5;RESP R,2,Je suis desolé, effendi. Je n'ai vu personne d'assoifé dans les parages.;W 25;RESP R,2,Croyez moi...;W 25;RESP R,2,Moi et Marlboro sommes experts en soif!;DSET 2,R1
/*
LINE: 2;6;Er... Belle journée, n'est-ce pas?; ;
LACT: 2;6;RESP R,2,Et oui, effendi.;DSET 2,N6
/*
LINE: 2;7;Alors, vous avez eu une chambre dans ce motel?; ;IFRF 2=1;IFRF 3=1
LACT: 2;7;RESP R,2,Je n'ai pas eu cette chance, effendi.;RESP R,2,Le motel est dejà complet, et je ne sais pas ce que je vais faire.;RESP R,2,C'est le seul endroit de la ville où ils acceptent les chameaux!;ADDRF 0,20,1;DSET 2,+8,N7
/*
LINE: 2;8;Je pense que je devrais utiliser un chameau pour sortir d'ici.; ;IFRF 4=1
LACT: 2;8;RESP R,2,Hmm...;RESP R,2,Oui, pourquoi pas? Je n'en aurais pas besoin pendant un moment.;RESP R,2,20 pièces d'or, et il est à vous!;SETRF 4=2;DSET 2,E,+9,+10
/*
LINE: 2;9;Attendez ici, d'accord? Je reviens.; ;
LACT: 2;9;RESP R,2,Je serais là. Je n'ai nulle part où aller, effendi.;EDLG;EXIT
/*
LINE: 2;10;Ok. Voila 20 pieces d'or pour le chameau.; ;IFCARR SOBJ5
LINE: 2;11;Comme s'il venait de gagner une partie de dés, probablement.; ;
LACT: 2;11;RESP R,2,Hmmm...;RESP R,2,...non.;RESP R,2,Je n'ai vu personne comme ça.;DSET 2,R1
/*
LINE: 2;12;Comme un homme de Medina - c'est d'où il vient.; ;
LACT: 2;12;RESP R,2,Hmm...;RESP R,2,A ma connaissance, les vetements à Medina n'ont rien de spécial.;RESP R,2,Comment savoir s'il vient de Medina?;DSET 2,E,+13,+14
/*
LINE: 2;13;Ils n'ont pas de boutons speciaux...; ;
LACT: 2;13;RESP R,2,Je pense que le soleil vous joue des tours, effendi.;DSET 2,R1
/*
LINE: 2;14;Oh, je ne sais pas. Oubliez ca.; ;
LACT: 2;14;RESP R,2,Ok, pas vraiment grand chose à oublier, effendi!;DSET 2,L,R1;EDLG;EXIT
/*
LINE: 2;15;Pourriez vous m'aider avec votre chameau svp?; ;
LACT: 2;15;RESP R,2,Ce n'est plus le mien, effendi!;DSET 2,N15
/*
LINE: 2;16;Qu'est-ce qui ne va pas avec cet animal?; ;
LACT: 2;16;RESP R,2,Eh bien, effendi...;RESP R,2,...Marlboro est trés humain.;RESP R,2,Parfois content, parfois non.;RESP R,2,Parfois il a besoin d'encouragement!;DSET 2,N16,+18
/*
LINE: 2;17;Finalement, oubliez ça.; ;
LACT: 2;17;RESP R,2,Completement sorti de l'esprit, effendi.;EDLG;EXIT
/*
LINE: 2;18;Que suggerez vous pour l'encourager, alors?; ;
LACT: 2;18;RESP R,2,Je n'en sais rien, effendi;RESP R,2,je l'ai eu pendant 5 ans...;RESP R,2,...et je n'ai rien trouvé, j'en ai peur!;DSET 2,N18,+19
/*
LINE: 2;19;Trés bien, je crois que je pense à quelque chose.; ;
LACT: 2;19;RESP R,2,Je ne peux que vous souhaiter bonne chance, effendi!;EDLG;EXIT
/* dialogue du marchand
LINE: 5;1;Enfin, vous ouvrez!; ;
LACT: 5;1;RESP R,5,Oh? Bien, je ne travaille jamais pendant une vague de chaleur...;RESP R,5,...et mon business s'écroule seulement pendant!;DSET 5,N1
/*
LINE: 5;2;Je ne sais pas vraiment ce que je veux, donnez moi un indice.; ;
LACT: 5;2;RESP R,5,Je ne suis pas une diseuse de bonne aventure. Maintenant que voulez vous!;DSET 5,N2
/*
LINE: 5;3;Qu'est-ce que ce magasin, exactement?; ;
LACT: 5;3;RESP R,5,C'est le seul magasin de Constantinople.;RESP R,5,Vous vendez, ou vous achetez?;DSET 5,N1,N2,N3,N12,+4,+5,+13
/*
LINE: 5;4;Je cherche toujours des jolies choses.;Ce que je veux vraiment est different.;
LACT: 5;4;RESP R,5,Bien, alors que voulez vous?;DSET 5,S1,+6,+7,+8
/*
LINE: 5;5;Je crois que je vends.;J'ai un trés joli autre article pour vous!;
LACT: 5;6;RESP R,5,Quoi? avez-vous déjà entendu parler d'un magasin qui vend ca???;DSET 5,R1
/*
LINE: 5;7;Un ticket de 1ere classe pour la caravane de Jerusalem.; ;
LACT: 5;7;RESP R,5,Oh, vous arrivez trop tard - j'ai vendu le dernier hier!;DSET 5,R1
/*
LINE: 5;8;De l'hydromel? Un plan? Un chameau? Un lama?; ;
LACT: 5;8;RESP R,5,Non! Non! Non! Non! Rien de tout ca!;DSET 5,R1
/*
LINE: 5;9;Faites moi un bon prix sur ce couteau.; ;
LACT: 5;9;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,Plus de couteau. J'en ai dejà assez pour toute ma vie.;SHOW 2, , ,RBOB30;HANDLE -1;DSET 5,R1
/*
LINE: 5;10;Vous devez posseder ce papier froissé incroyable!; ;
LACT: 5;10;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,Non merci, mes toilettes sont equipées!;HANDLE -1;DSET 5,R1
/*
LINE: 5;11;Et cette flute en bois?;Il y a quelque chose que vous ignorez sur cette flute.;
LACT: 5;11;IFOF 1=1;RESP R,5,Ah oui? quoi donc?
LACT: 5;11;IFOF 1=0;SETOF 1=1;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,Je ne vois pas l'interret.;HANDLE -1
LACT: 5;11;DSET 5,E,+16,+17,+18,+19
/*
LINE: 5;12;Oh, j'ai oublié quelque chose, je reviens tout de suite!; ;
LACT: 5;12;RESP R,5,Je serais là - à moins que cette chaleur horrible ne revienne.;EDLG;EXIT
/*
LINE: 5;13;Je dois aller faire un tour pour penser à tout ça. Desolé!;Je dois y reflechir un peu plus - ba-bye!;
LACT: 5;13;RESP R,5,Prenez votre temps!;EDLG;EXIT
/*
LINE: 5;14;J'ai cette trés rare, plume d'oiseau exotique.; ;
LACT: 5;14;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,Qui croyez vous berner? Ce n'est qu'une plume de mouette ordinaire!;RESP R,5,Je pourrais en prendre de mon oreiller, par centaine!;HANDLE -1;DSET 5,R1
/*
LINE: 5;15;Je pense que ce delicieux hydromel est déjà dans vos parrages.; ;IFCARR SOBJ3
LACT: 5;15;HANDLE;SHOW 2, , ,RBOB33;W 50;RESP R,5,Pas encore - Mais oui, la meilleure à faire serait de le jeter dans les parages!;HANDLE -1;DSET 5,R1
/*
LINE: 5;16;Mais elle a vraiment un son superbe!; ;
LACT: 5;16;RESP R,5,Desolé. Peut etre que si elle était en or.;DSET 5,R1
/*
LINE: 5;17;Bien, son aspect peut etre trompeur...; ;
LACT: 5;17;RESP R,5,Là, vous m'interessez. qu'entendez vous par là?;DSET 5,E,+20,+21
/*
LINE: 5;18;Me croiriez vous si je vous disais que cette flute est magique?; ;
LACT: 5;18;RESP R,5,Pas vraiment.;DSET 5,R1
/*
LINE: 5;19;Oh, flute.; ;
LACT: 5;19;RESP R,5,Desolé.;RESP R,5,par contre votre jeu de mot était trés marrant!;HANDLE -1;DSET 5,R1
/*
LINE: 5;20;Oh, vous n'allez pas me croire.; ;
LACT: 5;20;RESP R,5,Essayez!;DSET 5,R1
/*
LINE: 5;21;En fait, je m'en suis servi pour changer le temps, croyez moi ou pas.; ;
LACT: 5;21;RESP R,5,Vraiment?;RESP R,5,Serait-ce...;RESP R,5,Vous voulez dire que c'est une de ces flutes indiennes qui changent le temps?;RESP R,5,Incroyable!;RESP R,5,Si c'est vrai, il me la faut! oh..changer le temps quand il fait chaud
LACT: 5;21;RESP R,5,Laissez moi la regarder!;HANDLE;W 50;SHOW 2, , ,RBOB33;W 50;RESP R,5,Oui,on dirait que c'est c'est une de ces choses geniales!
/* Check if the "alley comment exit" should be in place or not
ACTION: -2;IFRF 7=1;HIDEEXIT 3
/*
/* Action 0 - Exit
/* ===============
/*
ACTION: 0;IFOBJ 1;MEXIT;GOTO 1,1
ACTION: 0;IFOBJ 2;MEXIT;GOTO 3,1
/* Below, going into the alley
ACTION: 0;IFOBJ 3;IFRF 7=0;SETRF 7=1;MEXIT;W 25;CBOB 11;SAY C'est surement l'allée la plus ininterressante que j'ai vue!;HIDEEXIT 3;EXIT
/*
/* Action 1 - Give
/* ===============
/*
/* Donner de l'argent au nomade
ACTION: 1;IFOBJ SOBJ5;IFOBJ2 9;IFRF 4=0|1;MOBJ 9;SAY Vous avez besoin d'argent?;RESP R,2,Non merci, effendi. Je ne suis pas un clochard. Je suis un homme riche.;EXIT
ACTION: 1;IFOBJ2 11;IFOBJ SOBJ3;IFRF 4=3;SETRF 4=4;SAY Oups...;SAY ...il a mangé la chope! Oh, tant pis.;SAY Je me demande si ca a marché?;ADDRF 0,20,1;EXIT
/* Giving anything to camel
ACTION: 1;IFOBJ2 11;IFCARR;IFRF 4=3;MOBJ 11;SAY Bonjour, Marlboro, camarade. Un peu de #W11 #OBJ1?;OBJ1 11;HANDLE;W 50;HANDLE -1;SAY Apparement non.;EXIT
/*
/* Action 2- Pick up
/* =================
/*
/* Action 3 - Use
/* ==============
/*
ACTION: 3;IFOBJ ROBJ5;SAY Laissons ca, d'accord?;EXIT
ACTION: 3;IFOBJ ROBJ6;IFRF 6=0; ;IFOF 1=0;W 100;SAY Rien ne se passe. Le marchand est surement au froid pendant la vague de chaleur...;SAY ...si seulement c'est possible.;SETOF 1=1;EXIT
ACTION: =;IFOF 1=1;W 100;SAY Il ne repond pas.;EXIT
ACTION: =;IFRF 5=1;RESP R,5,HE! Laissez cette cloche|Arretez ca! Ce n'est pas un JOUET!;EXIT
ACTION: 3;IFOBJ ROBJ7|ROBJ8;VERB 4;REDO
ACTION: 3;IFOBJ 11;IFRF 4=0|1|2;SAY Ce n'est pas a moi.;EXIT
ACTION: 3;IFOBJ 11;IFRF 4=3;MOBJ;SAY Allez!;HANDLE;W 50;HANDLE -1;SAY Allons y!;HANDLE;W 50;HANDLE -1;SAY Tres ennuyeux...;SAY ...l'animal ne bouge pas d'un pouce!;EXIT
